Top 10k strings from Control de Stocks (1984)(Microparadise Software)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 m$=n$(z(p))
   2 m$>n$(z(p))
   2 j(x)=j(x)+l:
   2           
   1 z(p)=z(p+1
   1 z(l)=z(l-1
   1 x$="                                ":
   1 spectrum                                                                                            
   1 s$(x)=s$(m):
   1 o(x)=o(m):
   1 n$(x)=n$(m):
   1 m$>n$(z(to))
   1 m$=m$+" ":
   1 m$(l)>"z")
   1 m$(l)>"Z")
   1 m$(l)>"9")
   1 l$="________________________________":
   1 j$="Total "+j$
   1 j$;j$'d$(x)'l$:
   1 j$*c(x)*s:
   1 j$*c(x)*s):
   1 inve                
   1 ink;"1 = Busqueda por descripcion"'"2 = Busqueda por proveedor "'"Pulse seleccion (c=Copy)";
   1 ink;" Entre No. de Transaccion:"'
   1 ink;" Descripcion(max=20)":
   1 h(x)=h(x)+(
   1 h(x)=h(m):
   1 h$=h$+w$(5
   1 e$="Pulse ENTER para MENU":
   1 d$(x)=d$(m):
   1 c(x)=c(m):
   1 a;" ";n$(x);"   ";d$(x):
   1 a$(l)>"9")
   1 ________________________________E
   1 Pulse ENTER para MENU
   1 MICROPARADISE
   1 M-19713-84
   1 CONTROL DE STOCK
   1 CONTROL   
   1 ARCHIVANDO
   1 ;w$''"No./Descrip. Cantidad    Valor  "'':
   1 ;w$''"No./Descrip";
   1 ;n$(l);"Stock ";h(l);" PEDIDO MIN. ";o(l)-h(l)'l$
   1 ;d$(x)'l$:
   1 ;"Valor"''
   1 ;"Valor del stock ";j$:
   1 ;"VERIFICANDO":
   1 ;"TELEVISOR COLOR";
   1 ;"TELEVISOR B/N";
   1 ;"REVALUANDO":
   1 ;"REPOSICIONES ";w$'':
   1 ;"REPONER"
   1 ;"Pulse 'e' para grabar fichero"
   1 ;"Pulse 'e' para MENU"
   1 ;"Palabra:   "''" No.";
   1 ;"PANTALLA A UTILIZAR?"
   1 ;"No valido":
   1 ;"No se encuentra la ficha":
   1 ;"No hay fichas creadas":
   1 ;"MONITOR"
   1 ;"MENU PRINCIPAL";
   1 ;"Listado del stock";
   1 ;"LISTADO DEL STOCK  ";
   1 ;"IMPRIMIENDO":
   1 ;"IMPRESORA A UTILIZAR?";
   1 ;"GRABANDO":
   1 ;"Fichero lleno":
   1 ;"Ficha ya existente; teclee otro ":
   1 ;"Ficha Stock"'''"Numero      "''"Descripcion "''"Proveedor   "''"Precio unit."'''"Nivel repos.   "''"Existencias    "''"Valor          "
   1 ;"Fecha no valida"
   1 ;"FIN DEL LISTADO":
   1 ;"Cantidad";
   1 ;"CONTROL DE STOCK";
   1 ;"CARGANDO"
   1 ;"BUSCANDO";
   1 ;"BUSCANDO":
   1 ;"BORRANDO"
   1 ;"BORRADO":
   1 ;"BORRADO DE FICHA ";w$:
   1 ;"ARCHIVANDO":
   1 ;"9: Reposicion/Revalorar";
   1 ;"8: Busqueda"''
   1 ;"7: Valor del Stock"''
   1 ;"6: Listado del Stock"''
   1 ;"5: Borrar ficha"''
   1 ;"4: Crear ficha";
   1 ;"3: Corregir ficha"''
   1 ;"2=Ventas/(Salidas)"
   1 ;"2: Nuevos datos"''
   1 ;"1=Compra/(Entradas)"+x$(
   1 ;"1: Display ficha"''
   1 ;"(ZX o CENTRONICS)"
   1 ;" PULSE UNA TECLA PARA CONTINUAR "
   1 ;" FICHERO CERRADO ";w$:
   1 ;" Cant. ":
   1 ;" BORRADA ":
   1 ;"    Descripcion    ";
   1 ;"       CONTROL DE STOCKS        "'"     MICROPARADISE SOFTWARE     ";
   1 1                   
   1 00000000000000010000000000000000000088888880000133333333333333330))))))))))))))113333333333333330))))))))))))))113333333333333330))))))))))))))133333333333333330))))))))))))))133333333333333330))))))))))))))111113333333333330))))))))))))))111113333333333330))))))))))))))111113333333333330))))))))))))))111113333333333330))))))))))))))113333333333333330))))))))))))))113333333333333330))))))))))))))113333333333333330))))))))))))))1133333333333333311111111111111111333333333333333111111111111111113333333333333330000000000000000000000000000000000000000000000000000000000000000M
   1 (m$(l)<"a"
   1 (m$(l)<"A"
   1 (m$(l)<"0"
   1 (h(a)*c(a)*100
   1 (a$(l)<"0"
   1 ((lo+to)/2
   1 "palabra para buscar (max=4) ";
   1 "Teclee ""s"" para confirmar ";
   1 "Quiere verificar?(s/n) ";
   1 "Quiere la lista de reposiciones?(s/n) ";
   1 "Quiere imprimir el listado(s/n)? ";
   1 "Quiere grabar el fichero?(s/n) ";
   1 "Pulse ENTER para pasar pagina   (c=copy) ";
   1 "Pulse ""e"" para MENU ";
   1 "Pulse ""R"" para valorar el stock al precio unitario";
   1 "PULSE ""C"" PARA SEGUIR(e=menu)";
   1 "PR.:";s$(x);"  PU:";c(x);"  RE:";o(x)
   1 "No. de fichas? (max=518) ";
   1 "NUEVOS TOTALES ";
   1 "Fecha (ddmmaa) ";
   1 "Esta todo bien? (s/n) ";
   1 "Entre No. de opcion: ";
   1 "Entre No. de ficha";
   1 "DATOS NUEVOS"
   1 "DATOS ANTIGUOS":
   1 "(e=menu) ";
   1 " Valor total (u=precio unitario) ";
   1 " Referencia? (max=4)";
   1 " Proveedor(max=4 car.) ";
   1 " Precio unitario ";
   1 " No. de Ficha(max=4) ";
   1 " Nivel de reposicion? ";
   1 " Cantidad(max=7)";
   1 "   (e=menu) ";
   1                                 L